home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / ptv1n4.arc / PRINTSCR.PAS < prev    next >
Pascal/Delphi Source File  |  1990-09-13  |  138b  |  9 lines
  1. PROCEDURE PrintScreen(TurnOn: Boolean);
  2.  
  3. BEGIN
  4.   IF TurnOn THEN
  5.     MEM[$0050:$0000] := 0
  6.   ELSE
  7.     MEM[$0050:$0000] := 1;
  8. END;
  9.